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address of file 16-Sep-1984 9}: a: 38 AX-11 Bliss- 


PASRTL.SRCJPASFAB. B32; 


MODULE PASSFAB ( %TI FAB address of file' 
{DENT . ' 
BEGIN : 


' 
RRR ARERR ER AEAAAA AA AA AAR AE EAE A AAA A ARTA eee eee ee eee 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


'* THIS fe weche HH FURNISHED UNDER A LICENSE AND MAY BE USED AND coriee 
'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOF TWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* Pannsrehaten” NC TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Pascal Language Support 

ABSTRACT: 


care module contains a procedure which returns a pointer to the 
RMS FAB for a specified file. 


i 
i 
i 
i 
i 
i 
i 
ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 19-October-1981 
MODIFIED BY: 

i! 1-001 = Original. SBL 19-October-1981 


File: PASFAB.B32 Edit: SBL1001 


sn 
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CODNAUS WN OOO 


Get FAB address of file 
Declarations 


Pk } RSBTTL ‘Declarations’ 
O48 PROLOGUE DEFINITIONS: 
050 1_ 

051 REQUIRE 'RTLIN:PASPROLOG'; 
1146 1! 

119 1 ! TABLE OF CONTENTS: 
wey 

120 1 FORWARD ROUTINE 

: 1 : PASSF AB; 
g198 13 
oi 4 i MACROS: 
01 1} NONE 
01 § 1: 
01 § | | EQUATED SYMBOLS: 
01580 NONE 
01 1 | FIELDS: 
01 1 | 
1B ee ie 
0136 ; OWN STORAGE: 
0138 1! MONE 


6 
1b-seo-1986 01:52:39 yayet! BLisg=42_v4_0-74 


! Externals, Linkages, PSECTs, structures 


' Get FAB address of file 


6 
PASSF AB Get FAB address of file 1b-se -1984 01:32: AX-11 Bliss-32 V4.0-74 Page 3 

1 PASSF - Get FAB address of file 12-80 8= 1382 93:34:38 PASRTL. atipace as o3e04 . (3) 
7 ZSBTTL 'PASSFAB - get FAB address of file’ 

7 GLOBAL ROUTINE PASSFAB ( ' Get FAB address of file 

? PFV: REF SPASSPFV_FILE_VARIABLE ! File variable 

= 

¢ am 

¢ FUNCTIONAL DESCRIPTION: 
86 This procedure returns a pointer to the RMS File Attributes 
44 Block (FAB) for the specified file, if one exists. 

i CALLING SEQUENCE: 
4 fab.wa.v = PASSFAB (pfv.rr.r) 
a7 FORMAL PARAMETERS: 
95 
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PFV - The Pascal File Variable (PFV) passed Oy tovergece: 


The structure of the PFV is defined in 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

The address of the file's FAB, or zero if none exists. 
SIDE EFFECTS: 

Opens INPUT or OUTPUT 
SIGNALLED ERRORS: 

NONE 


BEGIN 


LOCAL 
RAB: REF BLOCK C, BYTE); ! RMS RAB 

‘+ 

' Call PAS$RAB to get the address of the RAB for this file. PASSRAB 

may open INPUT or OUTPUT. It returns zero if there is no RAB. 


SDODWNA UNE AD $9 ODNAUES WIN 9 OONAUE WN O OONOAUM EW O OONOUS WOO 
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RAB = PASSRAB (PFV CPFVSR_PFV); 
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aii dtstaiadiataiaiaawisasiataiasdaiadimisasiaasiasiaaiastasataaaiaiadabdatabwiatadaiababad dab ababababababadadad 
WOO OOOO 00 00 09 09 09 0909 09 09 SI NIN NN NN NSD PAA AAA AAA I BB EEE EE OW 
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'¢ 
: If the RAB is defined, return the FAB address, otherwise zero. 


h. 

Ge file 16- sep “19 AX-11 Bliss-32 V4.0-74 P 4) 

1 PA t FAB address of file 14-Sep-1 1382 9}: 34: 38 SASATL sae IPASF AB O30¢4 7 (3) | 

: 135 136 | 

. 7 $ 19 IF .RAB NEQA 0 

. 138 THEN 
; 138 19 RETURN .RAB CRABSL_FAB) 

: 139 00 ELSE | 

: 129 4 RETURN .RAB; 

: 142 0 8 END; ! End of routine PASSFAB | 

| 


-TITLE PASSFAB Get FAB address of file 
DENT \1-001\ 


-EXTRN PAS$RAB 
~-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


0000 00000 .ENTRY PASSFAB, Seve nothing : 0140 : 

04 AC DD 00002 PUSHL FV : 0191 ; 

000000006 00 01 FB 90005 CALLS #1, PASSRAB ; ; 

50 05 0000C TSTL RAB + 0197 : 

04 13 OO00E BEQL «=s« 18 ; ; 

50 3c AO 00 00010 MOVL § 60(RAB), RO + 0201 ; 

04 00014 1$: RET > 0203 ; 

; Routine Size: 21 bytes, | Routine Base: _PASS$CODE + 0000 ; 
: 143 0204 1 ; 
> 164 0205 1 !<BLF/PAGE> ; 
3; «6145 0206 1 END ' End of module PASS$FAB 3 
> 146 0207 1 ; 
> 147 0208 0 ELUDOM é 
; PSECT SUMMARY ; 
: Name Bytes Attributes 3 
; PASSCODE 21 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | ; 
; Library Statistics ; 
Sree cae et Cee ne Symbols -------- Pages Processing 3 
: File Total Loaded Percent Mapped Time | : 
: _$255$DUA28:(SYSLIBISTARL ET L322 9776 0 581 00:00.9 | ; 
> 7$255$DUA28: CPASRTL.OBJJPASLIB.L32; 1 427 20 4 33 0:00.4 ; 


6 
£775 oddvess of file bs ta8ep-1 o- 3B 93: af} 38 PASRTLe sR tip ASF AB Bort roe (33 


; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASFAB/OBJ=O0BJ$:PASFAB MSRC$:PASFAB/UPDATE=(ENH$:PASF AB) 

; Size: 21 code + 0 data bytes 
Run Time: 0 " 


: im : 

; Elapsed Time: 00:11.4 
3 Lines/CPU Min: 
3; Lexemes/CPU-Min: 

3 poaney Used: 34 pages 
s a 


; Compilation Complete 
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